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x TITLE: bnumfd.p86 SYS300T Numbered File Driver 

* 

* DATES 5-262 

x 

* ABSTRACT: Contains setupSfile and readSfile which implement 
x reading a file on a numbered file system Cused for 
* named) for the System S8ootstrap Loader. 

Me . 

x NOTE: Lifted from second stage bootstrap loader 

* : ' 

* LANGUAGE DEPENDENCIES: PLM/&86 COMPACT 

*/ 


include: fl:bprop.asm) 


kee ERROR 42 IN 4 ClFT:BPROP.LASM, LINE 1): INSERTED: " <ID> =: DO" 

INTEL CORPORATION PROPRIETARY INFORMATION. THIS LISTING IS 
SUPPLIED UNDER THE TERMS OF A LICENSE AGREEMENT WITH INTEL 
CORPORATION AND MAY NOT BE COPIED NOR DISCLOSED EXCEPT IN 
ACCORDANCE WITH THE TERMS OF THAT AGREEMENT. 
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2 1 bnumfd: O07 
Sinclude(:f1:common.lit) 


/* | 
* Oft-used literals. 
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lifted from sacond stage bootstrap loader 
/ : 
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DECLARE . 
TRUE LITERALLY “’OFFH’, 
“FALSE LITERALLY “’O00H’%, 
FOREVER LITERALLY “’WHILE TRUE’, 
PTRSOVERLAY LITERALLY “STRUCTURE Coffsat WORD, base WORD)’, 
IN 3 C2FL:COMMON.LIT, LINE 14), NEAR “°PTROVERLAY’: INSERTED: " <ID>" 
IN 3 C2F1T:COMMON.LIT, LINE 14), NEAR “°PTROVERLAY’: DELETED: " LITERALLY 
DWORD ~ LITERALLY “POINTER’;z 
SincludeC€:f1: fnode.~lit) 
/* 
* Define disk fnode. 
x/ 


kkk ERROR 
eee ERROR 


hs eH Wn ou uw 
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DECLARe 
FNODESPTRSSSIZE LITERALLY °40%, /x 2 pointers */ 
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Sinclude (:ftin 
Ssubtitle(’Literals’) 
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DECLARE 
MAXSACCESSORS LITERALLY - "3 "% 


ACCESSORSSIZE LITERALLY °9°%, /* 3 accessors x/ 
/x 
x The fnode structure is that of the ERS, 
x / 
DECLARES 
FNOGESCOMMONST LITERALLY 
“flags WORD, 
‘type BYTE, 
gran SL LEZ 
owner WORD, 
critime OWORD, 
accassttimnme IWORD, 
mod3time DWORD, 
totalisize OWORD-, 
totalsSblks ODWORD, 
ptr CFNGDESPTRSSSIZE) BYTE’; 
DECLARE 
PNODESCOMMONS2 LITERALLY 
“thisSsize DWORD, 
extsfnode WORD, 
prevsfnode WORD, 
idcount WORD, 
accessor (ACCESSORSSIZE) BYTE’; 
DECLARE 
FNODETCOMMONSINFO LITERALLY “FNODESCOMMONS1T-FNODESCOMMONS2 7%; 
DeCeaRS 
NUMSDISKSFNODE LITERALLY “STRUCTURE C 
FNODESCOMMONSINFO, 
aux (1) BYTE)’; 
DECLARE ; 
NAMEDSOISKSFNODE LITERALLY “STRUCTUREC 
FNODESCOMMONSINFO, 
parent WORD, 
aux (1) BYTE)’; 
/x 
* Fnode flags bits Cagain, from tne ERS). 
xf 
DECLARE | 
FNILONG LITERALLY “OQOQO02H%; | 
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12 2 
13 2 
14 2 
xe ERROR 
16 3 
kkk ERROR 
19 3 
kkk ERROR 
22 3 
kkk ERROR 
255, 3 
kkx ERROR 
28 3 
kkk ERROR 
31 3 
kxk* ERROR 
34 3 
xxk ERROR 
37 3 
kkk ERROR 
40 3 
xxx ERROR 
43 3 
45 2 
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[* 
* Constents lifted fr 
DECLARE 
GR 
LF 
DECLARE 
MAX_PIDATA 
ST. ADDR PRESENT 
LISHED 
P=DATA 
PIDATA 
L=EDATA 
MODEND 
DECLARE 
BYTE_PTR_STRUCT 
byt BYTE, 
next BYTE)’; 


Sinclude (:f1l:dpsupp.¢sxt) 
Ssave nolist 
IN 16 CsF7:OPSUPPLEXT, LINE 


IN 


IN 


long call: 


DECLARE 


ClFE1:DPSUPP.EXT, LINE 


DECLARE dwa 


DWCROD, 


CF 1S OPSUPP.cX 14 INS 


DECLARE 


CsPTSDPSUPPS EXT LINE 
DECLARE cdwa DWORD, 
CFT sDPSUPP.EXTs LINE 


DECLARE dwa 


DWORD, 


CP} SOPSUCracX Tz: IEENE 


DECLARE 


(dwas, duh) 


C:FT:OPSUPP.JZEXTs LINE 


DECLARE 


Cswar swl) 


CoP PeDPSUPPL EXT LINE 


 DECIARE 


C(:F1:DPSUPP.EXT, LINE 


C:F1:OPSUPP.EXTs LIN 


DECLARE 
DECLARE 
[x 
* 
x 
* 


JECLARE 


unit 


mw 


| 


om the second stage bootstrap loader 


/x Scan Path Constants */ 


LITERALLY 
LITERALLY 


/x* 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


"OD0H’, 
“OAH’; 


/x Carriage Return */ 


/* Line Feed x*/ 


Loader Constants */ 


°1024’, 
“40H’, 

“OA4SH’, 
“084H’, 
“Q86H’%, 
“OAOQH’, 
“OSAH’; 


/* PIDATA staging 
address presence 
/x Record Types x/ 


/x Start 


area size 
pit */ 
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x / 


/* Structure to manipulate pointer to byte */ 
“STRUCTURE (C 


LITERALLY 


12): NOT AT 


15): NOT AT 
swl WORD; 
22): NOT AT 


28): NOT AT 
sul WORD, 
32): NOT AT 
swl WORD, 
500-4 NOW AT 
DWCRD-: 

59): NOT AT 
WORD? 

43): NOT AT 


69): NOT AT 


Lod NOT. AT 


from compact. 


PROCEDURE Cunit, 
ERROR 49 IN 46 CLINE 34): NOT AT MODULE LEVEL 


blkonum, buf_p-, 


NORD, 


MODULE 
MODULE 
MODULE 
MODULE 

MODULE 


MODULE 


MODULE 


MODULE 
MODULE 


MOOULE 


Declare long_call appropriately for use in calling 
the device driver. 
Long_call calls its last argument as a FAR procedure but 
* ais callalble 


dev_proc) EXTERNAL; 
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Literals 


lblkonum QWORD, 


buf _p POINTER, 
devoproc POINTER, 
47 3 END long call, 
/* 
* Errorfikalt halts WITHOUT enabling interrupts 
* / 
48 2 error_halt: PROCEDURE EXTERNAL, 
keke ERROR 49 IN 49 (CLINE 46): NOT AT MODULE LEVEL 
49 5 END error_halt, ~ 


$subtitle¢(’DWORD Overlay”) 


PL/M-86 COMPILER nunbd. p26 05/19/82 PAGE 5 
OWGRD Overlay . . 


ag Z DECLARE 
OWORD_OVERLAY LITERALLY “STRUCTURE ¢ 
lo WORD, . 
hi WORD)’, 


Ssubtitle(’Second Stage Static Data’) 
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ts 
* Static data variables 
x f 
51 2 DECLARE 
kkk ERROR 49 IN 51 CLINE 60): NOT AT MODULE 


; actual WORD 
xek ERROR 49 IN 51 CLINE 61): NOT AT MODULE 


1 
fnode_siz WORD 


keke ERROR 49 IN 51 CLINE 62): NOT AT MODULE 
device_driver POINT 

k*e* ERROR 49 IN 51 CLINE 63): NOT AT MODUL: 
dev_gran WORD 

kkk ERROR 49 IN 51 (CLINE 64): NOT AT MODULE 
unit “ORD 

xee ERROR 49 IN.57 CLINE 65): NOT AT MOOULE 
vol_blks WORD 


kkk ERROR 49 IN 51 CLINE 66): NOT AT MODULE 
fnode_Ffiles_block 
fnode_ptr_index WORD, 
kee ERROR 49 IN 51 CLINE 62): NOT AT MODULE 


short_block OWORD 
he hort hoek 26 OWORD 
short_blks WORD, 


indir _ptr_indax WORD-,. 
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and buffers: 


/x Read File data */ 


LEVEL 
EXTERNAL, — fx Nunber of bytes read from read$file */ 
LEVEL 
EXTERNAL, /*x Fnode size */ 

LEVEL 
ZR EXTERNAL, /* Pointer to device$read */ 

LEVEL 

EXTERNAL, /x Device granularity in bytes */ 
LEVEL 

EXTERNAL, /x Unit number */ 

eves 

EXTERNALY /* Volume gran. in device blocks */ 
LEVEL 


DWORD EXTERNALY /* First block of fnode file */ 


/x Index into fnode block pointers x/ 
LeveL . 
PUBLIC, /* First level block number */ 
_OVERLAY ATCAashort_block), 
/x First level block count x«/ 
/* Index into indirect block pointers */ 


Keke ERROR 49 IN 51 CLINE 72): NOT AT MODULE LEVEL 
long_block OWORD PUBLIC, /x Second level block number x*/ 
long_block_o DWORD_LOVERLAY ATCalong_block), 
long_blks WORD, /x Second.level block count */ 
loop_type WORD, /* Short/Long Loop control */ 
vol_block WORD, /* Counts device blocks in volume block */ 
[*- 

* Next buffers must be in this order 
x/ i, 
fnode NUMSDISKSFNODE, /*x Stores current fnode */ _ 
fnode_pitr( $8) ‘STRUCTURE ¢ /x fnode block pointers */ 
num_blocks WORD, 
block lo WORD, - 
block hi BYTE) ATCAfnode.ptr), 


fnode_total_size_9 DWORD_OVERLAY ATCAfnode.~totalSsize), 


xke ERROR 49 IN 51 (LINE 88): NOT AT MODULE LEVEL 
indir_lblock (1) BYTE PUBLIC, /*x current indirect block */ 
indir ptrit2 STRUCTURE ¢ /x indirect block pointers x/ 
num_blocks BYTE, 
block lo WORD, 
block hi BYTE) ATCAindir_block), 
k*e* ERROR 49 IN 57 CLINE 93): NOT AT MODULE LEVEL 
datas block op POINTER EXTERNAL, /x pointer to current data block */ 


data block BASED 
Ssubtitle(’Read File’) 


data_block ip (1) BYTE, /x current data block */ 


PAGE 
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Read File 


/* | 

a TEATS: readdfile =~ Read next block of a file 

x 

x INTERFACE VARIASLSES: 

x data _buffer_» pointer to buffer to receive block 
* ‘of data 
* 

* Uses this module’s static data to remember position 
x in file. 

” 

* CALLS: device driver via long_cally, error_halt 

* 1 

* ASSTRACT: Reads next block of RMX 86 nunbered- file. 

* This whole procedure is one execution of a big loop 

x to read a short fils or indirect blocks, with an 

* inner loop to read data blocks of a long file. 

* “loop_type” tells wnich loop to execute. 

xf 


readSfile: PROCEOURECdata_buffer_p) REENTRANT PUBLIC; 


wee ERROR 49 IN 53 (LINE 118): NOT AT MODULE LEVEL 


53 
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DECLARE | 
data_buffer _p POINTER, 
DECLARE | 
buffer_p POINTER, /x temp buffer pointer */ 
/x 
* Check for running off end of file 
x / 


IF fnode.total3size = QO THEN 
. CALL error_halts 


IF loop_tyne <> 9 THEN 
GOTO innerSloop, 


/* 
* If file is long, read indirect blocks else read data block 
xf 

IF (€fnode.flags AND FNSLONG) = O°THEN 

buffer_p = data_buffer_p- 

ELSE . 

buffer lp = dindir_block, ; 


TF OSCMPCSHORT_BLOCK,29A8H) = O THEN 

CAUSESINTERRUPT (3); . 
CALL long icallCunit, short_block, butffer_lp, device_driver),; 
short_block = dsadd(€short_block, 1)7 


IF (fnode.flags AND FNSLONG) = OG THEN 
SCTO nosSlong-, 
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Reac File 


/*x 
* Setup variables for this indiract block 
x/ , rs 


loop_type = 17 
indir _ptr_index 
long _block_o.lo indir_otr(0).block_ lo; 
long _block_o.hi indir_otr(Q).block his 
long block = dsmulClong_block, vol_blks); 


0; 


innersloop: 


noSlong: 


ot 


CALL long _callCunit, long _block, data _buffer_p, device_driver)-, 


long_block = dsaddClong_block, 1); 
IF vol_block = vol lblks THEN. 
D0, 
long_bliks = long _blks + 1; 
IF long_blks = indir_otrCindir_ptr_index).num_blocks THEN 
DO; 
indir_ptr_index = indir_ptr_index + 1, 
long _blks = Q, | 
long_block_o.wlo = indir_ptrCindir_ptr_index) .block_lo-s 
long_block_oehi = indir _ptrCindir_ptr_index) «block _hi-z 
long_block = dsmulClong_blocks vol_blks); 


/x 

* Have gone to new indirect entry. Check for end 
x of device block. . 

*/ 


TF SHLCindir_ptr_lindex,2) = dev_gran THEN 
loop_typs= = O- . 


END, 


IF vol_-block = vol _biks THEN 
DO; 
short _blks = short _blks + 1; 
vol_block = 0; 
END, 
vol_block = vol_block + 17 


* Check for end of blocks pointed to by this fnode block pointer 
x] 


IF short_blks = fnode_pir(fnode_ptr_index) enum_blocks THEN 

00-7 , ; 
fnode_ptr_index = fnode_ptr_index + 13 
short_blks = Q; 
loop_type = 0; ; 
short lblock_o.lo = fnode_lptr(fnode_ptr_index).block_lo; 
short block o.whi' = fnode_otr(fnodea_ptr_index) eblock_hi- 
‘short_block = dsmul(short_block,s vol_biks); 

END; 
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‘Read File 


* Set actual and update fnode size field to indicate 
x hytes left in file 


* / 
104 3 IF dscemp(Cfnode.totalSsize, dev_gran) > Q THEN 
105 3 actual = devigran; 
106 3 Sk55 
. actual = fnode_total_size_o.lo-, 
(107 = fnode.totalSsize = dssub(tfnode.totalssize, actual); 
108 5 END readifile,; 


Ssubtitle(’Setup File’). 
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/* 
a. TIVES setupsfile - prenare to read file by fnode number 
* 
* INTERFACE VARIABLES: 
x fnode_ num Number of file to set up 
. 
* Leaves setup of file in this nodule’s static data for 
* use by readSfile. 
x 
e CAS: | devices driver: via long_call, read$file, setup$file 
* 
* ABSTRACT: For fnode O, reads directly from disk. For any other, 
* sets up fnode Q, doses a partial seek, then raads fnodes 
* file to desired fnode. Sets up that fnode. 
x / 
109 2 setupSfile: PROCEDURECfnode_num) REENTRANT PUBLIC; 
kX ERROR 49 IN 110 CLINE 240): NOT AT MODULE LEVEL 
110 Bs Decl AR. 
fnode num WORD, 
144- 33 DECLARE | 
fnode_off OWORD, /x offset of fnode in fnodes file */ 
fnode_off_o DWORDLOVERLAY ATCAfnode_off), 
dtmp | DWORD, /* double word temporary */ 
112 3 IF fnode_-num = O THEN 
113 5 DO; 
/* 
x Read fnode O directly 
xf. é 
114 4 CALL Long_call(unit, tnode_file_block, @fnode, device_driver); 
115 4 ENO; 
116 3 ELSE 
DO; 
/* 
* Read fnodes file (fils 0) up to this fnode 
x / 
ART AE CALL setupSfils(0); 
118 4 : fnode_off = dssmul(fnode num, fnode_size); 
/* 
* Do partial seek 
* 
119 4 DO WHILE dpemp(fnode_off, dtmp := dssmul¢ 


fnode_ptr(tnode_ptr_index).num_blocks, dev_granxvol_blks)) > QO, 
120 5 fnod2a_off = dpsub(fnode_off, dtmp), : 
1 fnode_otr_index = fnode_ptr_index + 1; 


- un 
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122 5 END, 
123 4 short _blks = sdsdiv(fnode_off, dev_granxvol_blks), 
124 4 short_block_o.wlo = fnode_ptr(fnode_ptr_index) .block_lo-, 
125 4 short_block lowhi = fnode_ptr(fnods_ptr_index) .block his 
126 4 short_block = dsmul(short_block, vol_blks); 
127 4 short_block = dpadd(short_blocksdssmul(short_blks, vol_blks))? 
128 4 fnode_off = dpsub(fnode_off, dssmul(short_blks, vol_blks*dev_gran)); 
‘ / * 
x Read blocks to finish "seek" 
x / 


DC WHILE dscempCfnods_off, devigran) > O- 
CALL readSfileCddata_block); 
fnods_off = dssub(fnode_off, dev_gran), 
eNO, 


as od od 
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/x 
* Read one or two blocks of fnode file around desired fnode 
* and copy it from ‘data_block’ to “fnode’ 


x/ 

15 4 CALL read3fileCédata_block), 
134 4 TF dev_agran~fnode_off_o.lo < sizelCfnode) THEN 
135 4 CALL readSfileCidata_block (dev_gran)); 
L366 4 — CALL MOVBCAadata_block(fnodes_off_o.lo)d, Afnode, sizelCfnode)), 
137 4 ‘END; 

/~x 

x Initialize variables 

x / 
138 3 fnode_ptr_index = 0; 
139" 3 short_block_o.lo = fnode_ptr (0) .block_lo-, 
140 3 short_block_o.whi = fnode_ptr(O).block hi; . 
141 3 short_block = dsmul(short_ blocks, vol_blks),; 
142 5 short _blks = Q; 
143 3. loon_type = QO; 
144 3 long_blks = 9, 
145 3 vol_block = 1; 
146 x! END setupsStfile; 
147 2 END bnumfd- 


kee ERROR 42 IN 148 CLINE 321), NEAR “SETUPFILE’: INSERTED: “" END 7" 
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CROSS RcrenenGe. LEsStine 


NAME, ATTRIBUTES, 


AND REFERENCES 


NN 
eH 
W 
Vv 
« 


<ID> «2 « « 
ACCESSORSTZ 
ACTUAL. . 
BLK_NUM. . 
ENUMFD « « « 
BUFFER_P « « 
SUP P's ». ese 
BYTE_PTR_STR 


sos » Ths 


TORY ca A ie te 
JATA_SLOCK 
DATA_BLOCK_P . 
DATA_BUFFER_P. 
DEVICE_DRIV 
DEV_GRAN 

~DEV_PROC 
OP1. 


UCT 


La) 

ms) 

wn" 

Cre 

ow vu 

s 

a 

rf 

a e e s e a os s . ind 
8] 

e e@ 


OSMUL., ® 
DSSMUL e s e a 


OSSUS 6 wi. cece ae 
DIMP 8 <w Ao wos 
DWAs e 8 «@ «8 e@ 
OWA @ See 
OWA gat oe as a 
OWA a? Aes ce: we aes 
DWA. e  e@ 
CWAe 2 « 
DW nes a Gt ae 
CWSe: « a 
DWORD_ OVERLAY. 
ERROR_HALT . 
PRLS Sa wi 
FNLONG «2 « 
PNODE. s 
FLAGS. 
TYPE . 
GRAN « « « 
OWNER. «2 « 
CRTIME 
ACCE STINE 
MODTIME . 


PROCEDURE 
DWORD 
LITERALLY 
WORD 


LABEL 


STACK=OC000H 


f° od 


51 


105* 106* 107 
OWCRD IN PROC CLONG_CALL) PARAMETER 


POINTER IN PROC (READFILE) AUTOMATIC 


POINTER IN PROC CLONG_CALL) PARAMETER 
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LITERALLY “STRUCTURE Cbyt8YTE-nextBYTE) ” 

LITERALLY -“ OOH * | 

BYTE BASEDCDATA_BLOCK_P) ARRAY (1) 130 —133 135 136 
POINTER 150. 33>. 455° 1:56 

POINTER IN PROC CREADFILE) PARAMETER AUTOMATIC oS 60. “78 
POINTER 64 73 114 

WORD 85 104 105 119 123 128 #129 131 134 135 
POINTER IN PROC (LONG_CALL) PARAMETER 46 

DWORD IN PROC (DPADD) PARAMETER 22 

DWORD IN PROC CDPCMP) PARAMETER 16 =° 

DWORD IN PROC (DPADD) PARAMETER 22 

DOWORC IN PROC (DPCMP) PARAMETER 16 

PROCESURE DWORD EXTERNAL(2) STACK= D000H A27 
PROCEDURE INTEGER EXTERNAL(O) STACK=0000H 119 
PROCEDURE DWORD EXTERNAL(5) STACK=0000H ~ 120 128 
PROCEDURE DWORD EXTERNAL(3) STACK=0000H 65 74 
PROCEDURE INTEGER EXTERNAL(1) STACK=0000H 62 104 129 
PROCEDURE OWORD EXTERNAL(8) STACK=0000H 

PROCEDUR= OWORD EXTERNALC7) STACK=O0000H 72 8&4 102 126 
141 

PROCEDURE DWORD EXTERNAL(6) STACK=0000H 118 119 127 128 
PROCEDURE DWORD EXTERNAL(4) STACK=G000H 107 131 
DWORD IN PROC (SETUPFILE) AUTOMATIC 119* 120 

DWORD IN PROC (DSOIV) PARAMETER 40 

DWORD IN PROC (DSSU8) PARAMETER 28 

DWORD IN PROC (DSADD) PARAMETER 25 

OWORD IN PROC CDSMUL) PARAMETER Ts 

DWORD IN PROC (DPSU3) PARAMETER 24 

DWORD IN PROC (SDSDIV) PARAMETER 43 

OWORD IN PROC COSCMP) PARAMETER 19 

DWORD IN PROC (OPSUB) PARAMETER a4 

LITERALLY “STRUCTURE CLOWOROD,-hHiWORD) ” 51.111 
PROCEDURE EXTERNAL(11) STACK=0000H © 56 

LITERALLY ’OQ0H’ 

LITERALLY ’00002H’ 59 = 66 

STRUCTURE 114 134 136 

WORD 59 ~~. 66 

BYTE 

BYTE 

WORD . 

DWORD 

OWORD 

DWORD 
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0010H 
0004H 
FFFCH 


BPPCH 
OO00H 
O00eH 
0042H 
OOO00H 
O0Q0¢H 
0004H 
0014h 


9006H 
QO3AH 
QO000H 
QO002H 


OO8OH 
O0380H 
O0Q0H 
OOOH 
0003H 
S01CH 
OOOOH 


0022H 
OO1EH 
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D000H 
O024H 
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TOTALSIZE 
TOTALBLKS 
PTRe «a « 
TLS S DLE 
EXTFNOQDE 
PREVFNOD 
IOCOUNT. 
ACCESSOR 
AUX. « « 
PNODECQMMON1 


Ba) 
so ss oe » 8 


FNODECOMMON2 


FNODECOMMON 
FNODEPTRSS 
FNODE_FILE_ 
FNODE_NUM. . 
FNOOE_OFF. 
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UM_3LOCK 
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AO 
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FOREVER. « « 
INDIR_BLOCK. 
INDIR_PTR. « 
NUM_BLOCK 
BLOCK_LO 
BLOCK_HI 
INDIR_PTR_IND 
INNERLOOP. . 
LEDATA .« « « 
Ret a Aee tp yur 2s 
LISHED: «2 -s 
DONG. BUNS: 
LONG_BLOCK . 
LONG_3LOCK_O 
Osc a xe 
rer 
“LONGZCALE.. x 
LOOP_TYPE. . 
MAX&CCESSORS 
MAX _PIDATA . 
MODEND 2 a « 
MOVB 2 2 « e 
NAME DOISKENOD 


LOCK 
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OWORD ool 55 104 107*x 107 

DWORD : | 

BYTE ARRAY C40) 51 

OWORD 

WORD 

WORD 

WORD 

BYTE ARRAYC9) 

BYTE ARRAY (1) | oar 

LITERALLY -’flagqsWORD,typeBYTE,granBYTE,ownerWORD,crdtim 
~eDWORDe,accassStimeDwOROD-modStimeDWORD,totaltsizeDWORD,to 


ttalSbilksDWORD-ptrCFNODESPTRSSSIZE) BYTE’ 51 . 

LITERALLY “’thisSsizeDWORDvext3fnodewORD-previfnodawORD,iddcount 

-WORD-accessor (ACCESSORSSIZE) BYTE” 51 

LITERALLY “FNODESCOMMONS1T-FNODESCOMMONS 2’ on 

LITERALLY °40’ 51 

DWORD 114 

WORD IN PROC (CSETUPFILE) PARAMETER AUTOMATIC 110 112 118 
120 


OWORD IN PROC CSETUPFILE) AUTOMATIC 111  118* 119 120 
123 128* 128 129 131% 131 | 

STRUCTURE IN PROC CSETUPFILE) AT AUTOMATIC. 

WORD AUTOMATIC 134 136 

WORD AUTOMATIC 

STRUCTURE ARRAYC8) AT 


wORD 95 119 

WORD 100 124 139 

BYTE 101 125 140 

WORD 95 7% 97 100 107 #119 #%1241% #+1421 #1424 «125 

138% 

WORD 113° 

STRUCTURE AT 

WORD 106 

WORD 

LITERALLY “WHILE TRUE’ 

BYTE ARRAY(1) ' 5161 

STRUCTURE ARRAYC1) AT 

BYTE 78 

WORD fae) 82 

BYTE 71 8&3 ; 

WORD © 69k 78 80* 80 §2 33 85 

LABEL IN PROC CREADFILE). 58 

LITERALLY ’OQAOH’ 

LITERALLY ’OAH’ 

LITERALLY “OA4H’% 

WORD (x Pe 78 Bix 144* 
~~ DWORD 51 72x 72 73 74* 74 B4x 84 

STRUCTURE AT ° 

WORD 70* 82% 

WORD 71% B3* 

PROCEDURE EXTERNAL(10) STACK=0000H 64 73 «114 

WORD Sf 68x 86x 99% 143% 


LITERALLY °37 

LITERALLY ’1024° 

LITERALLY ‘O8AH’ 

BUILTIN | 136 | | 
LITERALLY “STRUCTURE (CFNODESCOMMONS INFO, parentWORD,aux (1) BYTE) ” 


13 
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CROSS “R-ErGRENCE: LISTIN'S 


89 O000H OL ONNG cs 45- seo wet serves LABEL IN PROC CREADFILE) 57 
9 NUMOZSKFNOOE . % . LITERALLY “STRUCTURE CFENODESCOMMONSINFO,-auXx(1)8YTE)’ 54 
13 PED Ah. ac bs we sec LITERALLY ’084H’ 
13 POR igs fe, ues cap: Wiad LITERALLY ’O86H%. ; 
3 PTROVERLAY .« 2 « 2 LITERALLY “STRUCTURE Coffset WORD, base WORD)’ 
52 0000H “WRERORTLE 2. @ we. <-2 PROCEDURE PUBLIC REENTRANT STACK=0000H 130 133 #135 
42 OQO00H SOSOLY 20h eo se PROCZDURE WORD EXTERNAL(9) STACK=0000H 123 
109 OOOOH SETUPFILE: em PROCEDUR= PUBLIC REENTRANT STACK=O0000H as a ad 
Sve: eae. ie ee BUILTIN So: |... ee | 
51 OO1AH * 2 “ SHORT.W BURKS se aye WORD o1%* 94 G5 98% 123% 127 128 142% 
51 0016H 4 SHORT_BLOCK. © « DWORD - 54 62 64 65% 65 102* 102 126* 126. 127% 
Rs 4 127 141% 141 ote ; 
51 0016H 4 SHORT_BLOCK_O.-. . STRUCTURE: AT be, 
Q00CH 2 LO: is Gi & ce 4 WORD 100% 124% 139%" 
O092H 2 this hi a ee: WORD 101* 125* 140 
CU LS wid. Ge Wea BUILTIN 134 (136 
1S ST_LADDR_PRESENT. . LITERALLY *°40H’ 
34 O00G8 D OS Wihhek we a: cw ate ase WORD IN PROC CDSSMUL) PARAMETER 34 
43° OOOOH 2° SW 6: a eee WORD IN PROC C(SDSDIV) PARAMETER 43 
40 QO00H Be See), ta Se, Gay: Ap ca WORD IN PROC CDSDIV) PARAMETER 40 
37 OCOGH © SW we wei ca 8 CB WORD IN PROC CDSMUL) PARAMETER 37 
34 Q000H © SWS Ge ie. ae cer SE WORD IN PROC (COSSMUL) PARAMETER 34 
28 OOOOH 2. WS Se. ce, vel eh Ee > SG WORD IN PROC (9SSU3) PARAMETER 28 
25 OQOCCH 2° BWES @ ceo At hel-& “2 WORD IN PROC (DSADD) PARAMETER 25 
19 O0O00H oo Wee. ce ee So ae. 8 WORD IN PROC CDSCMP) PARAMETER 19 
3 TRUE: a. -Se sa Hb Mee ve) te LITERALLY “’OFFH’ | 
4 OOOOH Be NONE Sia per ating a ta WORD IN PROC CLONG_CALL) PARAMETER 46 
51. GOOCH 2 SUNT ae veel acs de ch WORD 64 to Th 
51 OOOEH. 2 WOULELKS & a e wc -< WORD 72 75 3=84 89 102 119 123 126 127 128 
| 141 
51 0026H. 2 


VOLOSLOCKS- a Heed WORD: 75 89 92% 94% 94 145% 


MODULE INFORMATION: 


. CODE AREA SIZE = COOH 00 
CONSTANT AREA SIZE = OOGOH 00 
VARIAB8LE AREA SIZE = OO81H 1290 
MAXIMUM STACK SIZE = 


OOCGH ah) 
507 LINES READ. ' 
O PROGRAM WARNINGS 
29 PROGRAM ERRORS 


END OF PL/M-86 COMPILATION 


